library(dplyr)

df <- readr::read_csv("./data/score.csv")
df


# 同学们表现不错，分别得到额外的奖励分 `c(2, 5, 9, 8, 5, 6)`
reward <- c(2, 5, 9, 8, 5, 6)


